unit kwProfileEditFm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, InstantPresentation, StdCtrls, Mask, DBCtrls, Grids,
  DBGrids, kwModel;

type
  TkwProfileEditForm = class(TForm)
    ieProfile: TInstantExposer;
    dsProfile: TDataSource;
    DBEdit1: TDBEdit;
    Label1: TLabel;
    DBEdit2: TDBEdit;
    Label2: TLabel;
    isUser: TInstantSelector;
    dsUser: TDataSource;
    DBGrid1: TDBGrid;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure isUserAfterScroll(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

procedure TkwProfileEditForm.FormShow(Sender: TObject);
begin
  isUser.Active := True;
end;

procedure TkwProfileEditForm.isUserAfterScroll(DataSet: TDataSet);
begin
  (ieProfile.Subject as TkwProfile).UserId := (isUser.CurrentObject as TkwUser);
end;

end.
